If frmREE.mnuToScreen.Checked Then
''   
    frmREE.Report1.Destination = crptToWindow
  Else
''  
    frmREE.Report1.Destination = crptToPrinter
  End If